merge_no_bac<-function(years){
  
  for (i in years){
    print(i)
    j<-i-4
    setwd(wd_data_intermediate)
    admission_file_final<-paste("data_adm_raw_gps_",j,sep="")
    
    data_merged_complete<-readRDS(paste(admission_file_final,sep=""))
    data_merged_complete<-data_merged_complete %>%
      rename(id_adm=id,nume_adm=nume,specializare_adm=specializare) %>%
      mutate(an_adm=j,an_bac=i) %>%
      mutate(nota_optiunea_3=as.numeric(nota_optiunea_3),
             nota_lb_materna=as.numeric(nota_lb_materna))
    
    
    
    setwd(wd_data_final)
    saveRDS(data_merged_complete, file = paste("data_merged_complete_town_siiir_codes_",i,".rds",sep=""))
    
    rm(data_merged_complete)
    gc()
    print("merge complete")
  }
}